home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1200.dir / 00016_onescript.ls < prev    next >
Encoding:
Text File  |  1996-03-20  |  759 b   |  33 lines
  1. on onescript
  2.   global timeVar
  3.   set x to random(3)
  4.   set x to 45 + x
  5.   puppetSprite(x, 1)
  6.   set the volume of sound 1 to 255
  7.   set volvar to the volume of sound 2
  8.   set the volume of sound 2 to 60
  9.   set soundVar to random(11)
  10.   set soundVar to "prompt" & soundVar
  11.   puppetSound(soundVar)
  12.   updateStage()
  13.   startTimer()
  14.   repeat while the timer < 100
  15.     set the locV of sprite x to 350
  16.     updateStage()
  17.     set the locV of sprite x to 352
  18.     updateStage()
  19.   end repeat
  20.   puppetSound(0)
  21.   set the volume of sound 2 to volvar
  22.   puppetSprite(x, 0)
  23.   set timeVar to random(5)
  24.   set timeVar to timeVar + 2
  25.   set timeVar to timeVar * 60
  26.   set the timeoutLength to timeVar
  27.   set h to random(2)
  28.   if h = 1 then
  29.     set z to random(4)
  30.     go(string(z))
  31.   end if
  32. end
  33.